with Ada.Numerics.Discrete_Random;
with Ada.Containers.Vectors; use Ada.Containers;

package Constants is

   PassengersCount: CONSTANT Integer := 5;
   NumberOfStationsToVisit: CONSTANT Integer := 10;

   TrainWayTime: CONSTANT Integer := 5;
   TrainWaitingTime: CONSTANT Integer := 3;

   subtype PassengerId is Integer range 1 .. PassengersCount;
   subtype StationType is Character range 'A'..'C';
   subtype WaitingTime is Integer range 1..50;



   package RandomTime is new Ada.Numerics.Discrete_Random(WaitingTime);
   package RandomStations is new Ada.Numerics.Discrete_Random(StationType);

   package Passengers_Container is new Vectors (PassengerId, PassengerId);


--   type queue_array is array (PassengerId range <>) of PassengerId;







end Constants;
